home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / ANVIL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-09-29  |  357 b   |  14 lines
  1. 10  CLS:KEY OFF
  2. 20  PLAY"T200"
  3. 25  FOR J=1 TO 2
  4. 30  FOR I=1 TO 4
  5. 40   READ M$
  6. 60   PLAY M$
  7. 70  NEXT I
  8. 75  RESTORE 100
  9. 80  NEXT
  10. 100  DATA "O3 E2 E4. E8 E4. D8 C4. O2 A8 G4. B8 O3 D4. F8 E2 C2"
  11. 110  DATA "E2 E4. E8 E4. D8 C4. O2 A8 G4. B8 O3 D4. F8 E4 C4 E2"
  12. 120  DATA "C4 P4 D4 P4 O2 B4 O3 C4 O2 A4 B4 E4 P4 P8 G+8 A8 B8"
  13. 130  DATA "O3 C4 C4 P8 O2B8 O3C8 D8 E4 E4 P8 D8 E8 F8 G2. F8 G16 F16 E4 P4 P2"
  14.